home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Lexis Nexis Millenium Plus Collection 1997 to 1997
/
Lexis-Nexis Millenium Plus Collection - 1996-97 (Lexis-Nexis)(LA1173-0 07-96)(1996).bin
/
pc
/
office
/
lnoffice
/
olc
/
amipro
/
lexis.sm_
/
lexis.sm
Wrap
INI File
|
1995-03-02
|
47KB
|
3,495 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[docvars]
LEXISClient=LEXIS macros for Ami Pro
[prn]
HP LaserJet III
[port]
LPT1:
[lang]
1
[desc]
Access LEXIS</n>/NEXIS</n> on-line research services
794170243
38
739509871
5648
12
2896
20096
33
41
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Body Text
2
[fnt]
Arial
200
0
16384
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Function
3
[fnt]
Arial
240
0
16385
[algn]
1
1
0
0
0
[spc]
33
244
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Comment
4
[fnt]
Arial
200
16711680
16386
[algn]
1
1
0
0
720
[spc]
40
220
4
43
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
Comment
0
0
[tag]
label
5
[fnt]
Arial
200
0
16385
[algn]
1
1
0
0
720
[spc]
40
220
4
43
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
label
0
0
[tag]
Macro Debug
6
[fnt]
Arial
220
255
16451
[algn]
1
1
0
0
720
[spc]
40
220
4
43
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
Macro Debug
0
0
[tag]
Contact Info
7
[fnt]
Arial MT
280
0
16384
[algn]
1
1
4680
0
0
[spc]
17
360
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
Contact Info
0
0
[tag]
Header
8
[fnt]
Tms Rmn
200
0
49153
[algn]
4
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Header
0
0
[tag]
indent 1
9
[fnt]
Arial
200
0
16384
[algn]
1
1
720
0
1440
[spc]
40
220
4
43
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
indent 1
0
0
[tag]
Body Single
11
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
indent 2
12
[fnt]
Arial
200
0
16384
[algn]
1
1
1440
0
1440
[spc]
40
220
4
43
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
indent 2
0
0
[tag]
Bullet 1
0
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
0
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
0
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
0
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Normal
0
[fnt]
Helv
200
0
16384
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Normal
0
0
[tag]
Bullet
0
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
indent 3
0
[fnt]
Arial
200
0
16384
[algn]
1
1
2160
0
1440
[spc]
40
220
4
43
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
indent 3
0
0
[tag]
section head
0
[fnt]
Arial
200
0
16384
[algn]
1
1
0
0
0
[spc]
33
244
1
28
0
1
100
[brk]
0
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
41
1
1
0
1
0
0
[nfmt]
272
1
2
.
,
$
section head
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
12
54 0 24 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
108 0 5 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
163 0 22 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
218 0 17 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
271 0 69 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
326 0 55 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
381 0 65 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
435 0 14 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
490 0 12 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
545 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
601 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
648 0 0 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Comment@<:S+-1><:#327,9360>'//** Macro name: <:f280,BArial,255,0,0><+!>LEXIS.SMM<-!><:f> (Ami version 3.0)
@Comment@<:#220,9360>'//** LEXIS</n>/NEXIS</n> ACCESS for LOTUS</n> AMI PRO FOR WINDOWS(tm)
@Comment@<:#220,9360>'//** </i>COPYRIGHT 1993 Gilbert & Associates, Inc.
<:#231,9360>'-----------------------------------------------------------------------------------------------------------------------------
<:#211,9360><:f180,BArial,0,0,0>' *** IMPORTANT NOTICE ***
<:#211,9360><:f180,BArial,0,0,0>' This software, including the macro code, installation program and dynamic link library,
<:#211,9360><:f180,BArial,0,0,0>' is owned by Gilbert & Associates, Inc. and is licensed to be used solely for access to
<:#211,9360><:f180,BArial,0,0,0>' Mead Data Central's LEXIS/NEXIS online research database services ("LEXIS").
<:#211,9360><:f180,BArial,0,0,0>' You may copy the software and provide copies to others subject to the following conditions:
<:#211,9360><:f180,BArial,0,0,0>' (1) The software may not be modified or used for any other purpose. (2) Each copy must
<:#211,9360><:f180,BArial,0,0,0>' include all notices of copyright or other proprietary rights appearing in the original, including
<:#211,9360><:f180,BArial,0,0,0>' this notice. (3) The software is provided "AS IS"; Gilbert & Associates makes no warranties or
<:#211,9360><:f180,BArial,0,0,0>' representations to the user, and by using this software you agree to waive and release any and
<:#211,9360><:f180,BArial,0,0,0>' all possible claims against or liabilities of Gilbert & Associates with respect to the software.<:f>
<:#231,9360>'-----------------------------------------------------------------------------------------------------------------------------
<:#231,9360>
<:#231,9360>
@label@<:#220,9360>DEFINE LEXISDialog()
<:#231,9360> DllCall("lexis-ga.dll,LEXISDialog,IHCCCCIC",%1,%2,%3,%4,%5,%6,%7)
@label@<:#220,9360>DEFINE LEXISData()
<:#231,9360> DllCall("lexis-ga.dll,LEXISData,IH",%1)
@label@<:#220,9360>DEFINE LEXISInfo()
<:#231,9360> DllCall("lexis-ga.dll,LEXISInfo,CHI",%1,%2)
<:#231,9360>
@label@<:#220,9360>DEFINE LEXISDownloadToApp()
<:#231,9360> DllCall("lexis-ga.dll,LEXISDownloadToApp,CC",%1)
<:#231,9360>
@label@<:#220,9360>DEFINE LEXISGetAppType()
<:#231,9360> DllCall("lexis-ga.dll,LEXISGetAppType,H")
<:#231,9360>
@label@<:#220,9360>DEFINE dhStartLexisToolbar()
<:#231,9360> DllCall("dlghook.dll,dhStartLexToolbar,H")
<:#231,9360>
@label@<:#220,9360>
@label@<:#220,9360>
@label@<:#220,9360>DEFINE dGetAppWindow()
<:#231,9360> DllCall("lexis-ga.dll,dGetAppWindow,CC",%1)
<:#231,9360>
@label@<:#220,9360>DEFINE dGetAppFile()
<:#231,9360> DllCall("lexis-ga.dll,dGetAppFile,CC",%1)
@label@<:#220,9360>DEFINE dLobster()
<:#231,9360> DllCall("lexis-ga.dll,dLobster,CCH",%1,%2)
@label@<:#220,9360>DEFINE dGetIniText()
<:#231,9360> DllCall("lexis-ga.dll,dGetIniText,CCCC",%1,%2,%3)
@label@<:#220,9360>DEFINE dLastChar()
<:#231,9360> DllCall("lexis-ga.dll,dLastChar,ICC",%1,%2)
<:#231,9360>
@label@<:#220,9360>DEFINE GetActiveWindow()
<:#231,9360> DLLCall("user.dll,GetActiveWindow,H")
@label@<:#220,9360>
<:#231,9360>
<-!><:f200,BArial,>DEFINE <:f>gcDBTITLE$ "LEXIS-NEXIS Online Connection"
<:#231,9360>
<:#231,9360>DEFINE cVERSION$ "2.70"
<:#236,9360>DEFINE cDLLVER$ "2.70" <:f200,,0,0,255><+">'//** (minimum required dll version #)<-"><:f>
<:#231,9360>DEFINE cDLLNAME$ "LEXIS-GA.DLL"
<:#231,9360>DEFINE cAPPNAME$ "Lotus Ami Pro"
<:#231,9360>DEFINE gcAPPWIN$ "Ami Pro"
<:#231,9360>DEFINE gcAPPMOD$ "AMIPRO"
<:#231,9360>DEFINE gcTEMPLATE$ "_LEXIS.STY"
<:#231,9360>
<:#231,9360>DEFINE gcINI#OPTIONS$ "DDE MACROS"
<:#231,9360>DEFINE gcAPPENDBKMK$ "LEXISAppendStart"
<:#231,9360>DEFINE Err 0
<:#231,9360>DEFINE BLUE 16711680
<:#231,9360>
<:#231,9360>DECLARE fGetDocSelection$()
<:#231,9360>DECLARE fLEXSEEFormat(vAPPEND, pPAGES)
<:#231,9360>DECLARE fSetUpDoc(vHWnd, vAPPEND, vDOC, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL)
<:#231,9360>DECLARE fError(pErr, pMsg$)
<:#231,9360>DECLARE fNEWFILE(vHWnd, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL)
<:#231,9360>DECLARE fSetDefaultFormat(vAPPEND)
<:#231,9360>
@Function@<:#293,9360>Function LEXISAmi()
<:#231,9360>
<:#231,9360>StatusBarMsg(StrCat$("Initializing ", gcDBTITLE$, "..."))
<:#231,9360>
<:#231,9360>OnError xMAINABORT
<:#231,9360>hLEXIS = 0
<:#231,9360>FreeGlobalVar("LEXgFAILURE")
<:#231,9360>If AllocGlobalVar("LEXgFAILURE", 1) = 0 Then
<:#231,9360> Message(StrCat$("Insufficient memory initializing ", gcDBTITLE$, "."))
<:#231,9360> Goto xMAINFINISH
<:#231,9360>EndIf
<:#231,9360>SetGlobalVar("LEXgFAILURE", 0)<-">
<:#231,9360>
<:#231,9360>If GetOpenFileCount() <;> 0 Then
<:#231,9360> vEXISTFILE$ = LCase$(GetDocInfo$(1))
<:#231,9360> IF(vEXISTFILE$= "lexis.smm") Then
<:#231,9360> x=MultiDecide( "Command cannot be run with this macro as the active document.",
<:#231,9360> 0+16, gcDBTITLE$)
<:#231,9360> Goto xMAINFINISH
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>vHWnd = GetActiveWindow()
<:#231,9360>cLF$ = Chr$(10)
<:#231,9360>
<:#231,9360>dhStartLexisToolbar()
@label@<:#220,9360>Pause(2)
@label@<:#220,9360>
<:#231,9360>hLEXIS = DLLLoadLib(cDLLNAME$, "LEXISInfo", "CHI")
<:#231,9360>If hLEXIS = 0 Then
<:#462,9360> x=MultiDecide(StrCat$("LEXIS Access Library file missing.", cLF$, cLF$, cDLLNAME$, " must be ",
<:#231,9360> "installed in the \WINDOWS\SYSTEM directory to run this macro."), 0+16, gcDBTITLE$)
<:#231,9360> FreeGlobalVar("LEXgFAILURE")
<:#231,9360> Goto xMAINFINISH
<:#231,9360>EndIf
<:#231,9360>If LEXISInfo(vHWnd, 12) << cDLLVER$ Then
<:#231,9360> x=MultiDecide(StrCat$("Incorrect version of LEXIS Access Library (", cDLLNAME$, "). ", cLF$,
<:#231,9360> "Version ", cDLLVER$, " or later is required."), 0+16, gcDBTITLE$)
<:#231,9360> Goto xMAINCANCEL
<:#231,9360>EndIf
<:#231,9360>
@Comment@<:#220,9360>'//** <[>status bar check omitted in Ami]
<:#231,9360>
<:#231,9360>OnCancel xMAINCANCEL
<:#231,9360>vGLOBAL = 1
<:#231,9360>
<:#236,9360>vDOCCLIENT$ = GetDocVar("LEXISClient") <:f200,,0,0,255><+">'//** (replaces fGetSetClient(0, vDOCCLIENT$))<-"><:f>
<:#231,9360>vCLIENT$ = vDOCCLIENT$
<:#231,9360>
<:#231,9360>vCITE$ = fGetDocSelection$()
<:#231,9360>
<:#231,9360>StatusBarMsg(StrCat$(gcDBTITLE$, " for ", cAPPNAME$))
<:#231,9360>
<:#231,9360>vDLG = LEXISDialog(vHWnd, vCITE$, vCLIENT$, cAPPNAME$, cVERSION$, 0, "")
<:#231,9360>If vDLG <;> 65500 Then
<:#231,9360> vDLG = vDLG - 65536
<:#231,9360>EndIf
<:#231,9360>If vDLG << 2 Then
<:#231,9360> Goto xMAINCANCEL
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>vCLIENT$ = LEXISInfo(vHWnd, 2)
<:#231,9360>If vCLIENT$ <<<;> vDOCCLIENT$ And vCLIENT$ <<<;> "" Then
<:#231,9360> SetDocVar("LEXISClient", vCLIENT$)
<:#231,9360>EndIf
<:#231,9360>If vDLG << 4 Then
<:#231,9360> Goto xMAINCANCEL
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>
<:#231,9360>if LEXISGetAppType()<<<;>4 then
<:#231,9360> LEXISDownloadToApp(vHWnd)
<:#231,9360> goto xMAINCANCEL
<:#231,9360>endif
<:#231,9360>
<:#231,9360>
<:#231,9360>vCITE$ = LEXISInfo(vHWnd, 1)
<:#231,9360>vDOCTYPE$ = LEXISInfo(vHWnd, 7)
<:#231,9360>vFILETYPE$ = ""
<:#231,9360>vDOC = 0
<:#231,9360>vPAGECNT = 0
<:#231,9360>vTOTPAGES = 0
<:#231,9360>vDATA = 3
<:#231,9360>vAPPEND = 0
<:#231,9360>
<:#231,9360>While vDATA <;> 2
<:#231,9360><-"> vLB$ = Chr$(91)
<:#231,9360> StatusBarMsg("{vDOCTYPE$} {vLB$}{vCITE$}]")
<:#231,9360> vDATA = LEXISData(vHWnd)
<:#231,9360> If vDATA <;> 65500 Then
<:#231,9360> vDATA = vDATA - 65536
<:#231,9360> EndIf
<:#231,9360> If(vDATA = 2) Or (vDATA <;> 3) Then
<:#231,9360> If vDOC <;> 0 Then
<:#231,9360> If UCase$(vFILETYPE$) = "LEXSEE" Then
<:#231,9360> x = fLEXSEEFormat(vAPPEND, vPAGECNT)
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360> If vDATA <;> 2 Then
<:#231,9360> If vDATA <;> 3 Then
<:#231,9360> vAPPEND = vDATA - 4
<:#231,9360> vDOCTYPE$ = LEXISInfo(vHWnd, 7)
<:#231,9360> vFILETYPE$ = dLobster(vDOCTYPE$, 11)
<:#231,9360> If fSetUpDoc(vHWnd, vAPPEND, vDOC, vFILETYPE$, vCITE$, vCLIENT$,
<:#231,9360> vGLOBAL) = 0
<:#231,9360> Then
<:#231,9360> vDATA = 0
<:#231,9360> Else
<:#231,9360> vDOC = vDOC + 1
<:#231,9360> EndIf
<:#231,9360> If vAPPEND = 0 Then
<:#231,9360> vTOTPAGES = vTOTPAGES + vPAGECNT
<:#231,9360> vPAGECNT = 0
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360> If vDATA <;> 0 Then
<:#231,9360> ActivateApp(dGetAppWindow(gcAPPWIN$))
<:#231,9360> Paste()
<:#231,9360> vPAGECNT = vPAGECNT + 1
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360>Wend
<:#231,9360>
<:#231,9360>If vData = 2 Then
<:#231,9360> vTOTPAGES = vTOTPAGES + vPAGECNT
<:#231,9360> vMSG$ = "Download completed."
<:#231,9360> StatusBarMsg(vMSG$)
<:#231,9360> vDLGMSG$ = StrCat$("{vMSG$}{cLF$}{cLF$}LEXIS DOCUMENTS: {vDOC}{cLF$}",
<:#231,9360> "TOTAL LEXIS PAGES: {vTOTPAGES}")
<:#231,9360> Message(StrCat$(gcDBTITLE$, cLF$, "------------------------------------", cLF$, vDLGMSG$))
<:#231,9360>EndIf
<:#231,9360>Goto xMAINCANCEL
<:#231,9360>
@label@<:#220,9360>xMAINABORT:
<:#231,9360>x = fError(Err, "Error encountered in LEXIS/NEXIS Ami Pro macro main routine.")
<:#231,9360>
@label@<:#220,9360>xMAINCANCEL:
<:#231,9360>StatusBarMsg("")
<:#231,9360>If hLEXIS <<<;> 0 Then
<:#231,9360> x$ = LEXISInfo(vHWnd, 0)
<:#231,9360> DLLFreeLib(hLEXIS)
<:#231,9360>EndIf
<:#231,9360>FreeGlobalVar("LEXgFAILURE")
<:#231,9360>If vDLG <<<;> 3 Then
<:#231,9360> ActivateApp(dGetAppWindow(gcAPPWIN$))
<:#231,9360>EndIf
<:#231,9360>If GetOpenFileCount() <;> 0 Then
<:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark)
<:#231,9360>EndIf
@Comment@<:#220,9360>'//** <[>status bar reset omitted] **//
<:#231,9360>
@label@<:#220,9360>xMAINFINISH:
<:#231,9360>StatusBarMsg("")
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
<:#231,9360>'----------
@Function@<:#293,9360>Function fGetDocSelection$()
<:#231,9360>OnError xDOCSELECTIONFINISH
<:#231,9360>vCITE$ = ""
<:#231,9360> vCITE$ = CurShade$()
<:#231,9360> vLEN = Len(vCITE$)
<:#231,9360> If vLEN << 0 Or vLEN <;> 256 Then
<:#231,9360> vCITE$ = "(invalid selection)"
<:#231,9360> Else
<:#231,9360> vCITE$ = Left$(vCITE$, 128)
<:#231,9360> EndIf
@label@<:#220,9360>xDOCSELECTIONFINISH:
<:#231,9360>fGetDocSelection$ = vCITE$
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
<:#231,9360>'----------
@Function@<:#586,9360>Function fSetUpDoc(vHWnd, vAPPEND, vDOC, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL)
<:#231,9360>vSTATUS = 0
<:#231,9360>OnError xSETUPABORT
<:#231,9360>StatusBarMsg("Setting up document for downloading data...")
<:#231,9360>
<:#231,9360>If vAPPEND = 0 Then
<:#231,9360> If GetOpenFileCount() <;> 8 Then
<:#231,9360> If MultiDecide(StrCat$("Too many document windows open to create a new document.",
<:#231,9360> Chr$(10), "Append to current document?."), 1 + 32, gcDBTITLE$) = 1
<:#231,9360> Then
<:#231,9360> vAPPEND = 1
<:#231,9360> Else
<:#231,9360> Goto xSETUPFINISH
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>If vAPPEND = 0 Then
<:#231,9360> If GetOpenFileCount() <;> 0 Then
<:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark)
<:#231,9360> EndIf
<:#231,9360> vSTATUS = fNewFile(vHWnd, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL)
<:#231,9360> If vSTATUS = 0 Then
<:#231,9360> If MultiDecide(StrCat$("Unable to create new document.", Chr$(10),
<:#231,9360> "Append to current document?"), 1, gcDBTITLE$) = 1
<:#231,9360> Then
<:#231,9360> vAPPEND = 1
<:#231,9360> Else
<:#231,9360> Goto xSETUPFINISH
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>If vAPPEND <<<;> 0 Then
<:#231,9360>
<:#231,9360><:f200,BArial,0,0,255>'//* Don't continue any further if no files are open, because we GPF!<:f>
<:#231,9360>
<:#231,9360> If GetOpenFileCount() = 0 Then
<:#231,9360> Message ("Sorry, no document is open for appending.")
<:#231,9360> Goto xSETUPFINISH
<:#231,9360> EndIf
<:#231,9360>
<:#231,9360> Type("<[>CtrlEnd]")
<:#231,9360> Type("<[>Home]")
<:#231,9360> If CurChar$() <<<;> "" Then
<:#231,9360> Type("<[>End]<[>Enter]")
<:#231,9360> EndIf
<:#462,9360> '// We must delete the bookmark or else Ami will append numbers to the end and hose everything.
<:#231,9360>
<:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark)
<:#231,9360>
<:#231,9360> MarkBookMark(gcAPPENDBKMK$, AddBookmark)
<:#231,9360> PageBreak(1)
<:#231,9360> If vDOC = 0 Then
<:#231,9360> vSTATUS = fSetDefaultFormat(1)
<:#231,9360> If vSTATUS = 0 Then
<:#231,9360> StatusBarMsg("Cleaning up...")
<:#231,9360> MarkBookMark(gcAPPENDBKMK$, FindBookmark)
<:#231,9360> Type("<[>ShiftCtrlEnd]")
<:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark)
<:#231,9360> PageBreak(2)
<:#231,9360> Type("<[>Del]")
<:#231,9360> Else
<:#231,9360> Type("<[>Enter]")
<:#231,9360> Type( "<[>Up]")
<:#231,9360> EndIf
<:#231,9360> Else
<:#231,9360> vSTATUS = 1
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>vHEADLINE$ = LEXISInfo(vHWnd, 8)
<:#231,9360>If vHEADLINE$ <<<;> "" Then
<:#231,9360> DEFSTR vFNAME$, vCOLOR, vFONTSIZE, vPITCHFAM
<:#231,9360> GetCurFontInfo(&vFNAME$, &vCOLOR, &vFONTSIZE, &vPITCHFAM)
<:#231,9360><:><:> FontChange("", 0, BLUE, vFONTSIZE)
<:#231,9360><:><:><:><:> Italic()
<:#231,9360> Type("{vHEADLINE$}<[>CtrlEnter]")
<:#231,9360><:><:><:><:><:><:> FontChange("", 0, vCOLOR, vFONTSIZE)
<:#231,9360> Italic()
<:#231,9360> For i = 1 to 8
<:#231,9360> Type("----------")
<:#231,9360> Next
<:#231,9360> Type("<[>Enter]<[>Enter]")
<:#231,9360>EndIf
<:#231,9360>Goto xSETUPFINISH
<:#231,9360>
@label@<:#220,9360>xSETUPABORT:
<:#231,9360>x = fError(Err, "Error preparing to download data.")
<:#231,9360>vSTATUS = 0
<:#231,9360>
@label@<:#220,9360>xSETUPFINISH:
<:#231,9360>StatusBarMsg("")
<:#231,9360>fSetUpDoc = vSTATUS
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
<:#231,9360>'----------
@Function@<:#293,9360>Function fNEWFILE(vHWnd, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL)
<:#231,9360>vSTATUS = 0
<:#231,9360>vCREATED = 0
<:#231,9360>OnError xNEWFILEABORT
<:#231,9360>StatusBarMsg("Creating new file...")
<:#231,9360>If GetOpenFileCount() = 0 Then
<:#231,9360> vEXISTFILE$ = "none"
<:#231,9360>Else
<:#231,9360> vEXISTFILE$ = GetOpenFileName$()
<:#231,9360> If vEXISTFILE$ = "" Then
<:#231,9360> vEXISTFILE$ = "untitled"
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>If vFILETYPE$ = "" Then
<:#231,9360> vFILETYPE$ = "LEXIS"
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>vSTYPATH$ = GetStylePath$()
<:#231,9360>vDOTPATH$ = vSTYPATH$
<:#231,9360>If vDOTPATH$ = "" Then
<:#231,9360> vDOTPATH$ = dGetAppFile(gcAPPMOD$)
<:#231,9360> vDOTPATH$ = Left$(vDOTPATH$, dLastChar(vDOTPATH$, "\") - 1)
<:#231,9360>EndIf
<:#231,9360>vDOTPATH$ = dLobster(vDOTPATH$, 1)
<:#231,9360>vINIFILE$ = LEXISInfo(vHWnd, 10)
<:#231,9360>vTEMPLATE$ = dGetIniText(gcINI#OPTIONS$, "AmiProTemplate", vINIFILE$)
<:#231,9360>If vTEMPLATE$ = "" Then
<:#231,9360> vTEMPLATE$ = gcTEMPLATE$
<:#231,9360> vDOTPATH$ = vSTYPATH$
<:#231,9360>ElseIf InStr(1, vTEMPLATE$, "\") <;> 0 Then
<:#231,9360> vPOS = dLastChar(vTEMPLATE$, "\")
<:#231,9360> vDOTPATH$ = Left$(vTEMPLATE$, vPOS)
<:#231,9360> vTEMPLATE$ = Mid$(vTEMPLATE$, vPOS + 1, Len(vTEMPLATE$) - vPOS)
<:#231,9360>EndIf
<:#231,9360>If FindFirst$("{vDOTPATH$}{vTEMPLATE$}", 0) = "" Then
<:#231,9360> vDEFSTY$ = GetProfileString$("AmiPro","defstyle", "amipro.ini")
<:#231,9360> vTEMPLATE$ = vDEFSTY$
<:#231,9360> vDOTPATH$ = vSTYPATH$
<:#231,9360> If FindFirst$("{vDOTPATH$}{vTEMPLATE$}", 0) = "" Then
<:#231,9360> vTEMPLATE$ = ""
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
@label@<:#220,9360>xFILENEW:
<:#231,9360>OnError xFILENEWERR
<:#231,9360>If vDOTPATH$ <<<;> vSTYPATH$ Then
<:#231,9360> If SetStylePath(vDOTPATH$) = -2 Then
<:#462,9360> x=MultiDecide("Error setting style path to directory of template ({vDOTPATH$}).", 0+48,gcDBTITLE$)
<:#231,9360> vTEMPLATE$ = ""
<:#231,9360> vDOTPATH$ = vSTYPATH$
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>If vTEMPLATE$ = "" Then
<:#231,9360> AnswerMsgBox(1)
<:#231,9360>EndIf
<:#231,9360>New(vTEMPLATE$, 0, 512)
<:#231,9360>vCREATED = -1
<:#231,9360>OnError xNEWFILEABORT
<:#231,9360>If vDOTPATH$ <<<;> vSTYPATH$ Then
<:#231,9360> SetStylePath(vSTYPATH$)
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>vKEY$ = "{vFILETYPE$} SEARCH"
<:#231,9360>vTITLE$ = Left$("{vFILETYPE$}: {vCITE$}", 64)
<:#231,9360>DocInfo(vTITLE$, Left$("{vKEY$}, {vCITE$}", 32), 0)
<:#231,9360>SetDocVar("LEXISClient", vCLIENT$)
<:#231,9360>
<:#231,9360>If vTEMPLATE$ = "" or vTEMPLATE$ = vDEFSTY$ Then
<:#231,9360> If fSetDefaultFormat(0) = 0 Then
<:#231,9360> Goto xNEWFILEABORT
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>OnError xNEWFILEABORT
<:#231,9360>
<:#231,9360>Type("<[>CtrlHome]")
<:#231,9360>If CurChar$() <<<;> "" Then
<:#231,9360> Type("<[>Enter]")
<:#231,9360> Type("<[>Up]")
<:#231,9360>EndIf
<:#231,9360>NormalText()
<:#231,9360>
<:#231,9360>vSTATUS = 1
<:#231,9360>StatusBarMsg("")
<:#231,9360>Goto xNEWFILEFINISH
<:#231,9360>
@label@<:#220,9360>xFILENEWERR:
<:#231,9360>If vTEMPLATE$ <<<;> "" Then
<:#231,9360> vTEMPLATE$ = ""
<:#231,9360> Goto xFILENEW
<:#231,9360>EndIf
<:#231,9360>
@label@<:#220,9360>xNEWFILEABORT:
<:#231,9360>x = fError(Err, "Error creating new document.")
<:#231,9360>If vCREATED <<<;> 0 Then
<:#231,9360> If vEXISTFILE$ <<<;> GetOpenFileName$() Then
<:#231,9360> FileChanged(1,0)
<:#231,9360> FileClose()
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>
@label@<:#220,9360>xNEWFILEFINISH:
<:#231,9360>fNEWFILE = vSTATUS
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
<:#231,9360>'----------
@Function@<:#293,9360>Function fSetDefaultFormat(vAPPEND)
<:#231,9360>vSTATUS = 0
<:#231,9360>OnError xSETDEFAULTABORT
<:#231,9360>
<:#231,9360>ModLayoutInit(512)
<:#231,9360>ModLayoutPageSize(15840, 12240, 1, 1)
<:#231,9360>ModLayoutRightPage(1440, 1440, 1080, 1440, 1, 0, 1, 1440, 11160, 0)
<:#231,9360>ModLayoutFinish( )
<:#231,9360>
<:#231,9360>FontChange("Courier New", FixedPitch + Modern, 0, 10*20)
<:#231,9360>DEFSTR vFNAME$, vPITCHFAM, vFCOLOR, vFSIZE
<:#231,9360>GetCurFontInfo(&vFNAME$, &vFCOLOR, &vFSIZE, &vPITCHFAM)
<:#231,9360>If vFSIZE/20 <;> 10 Then
<:#231,9360> vFNAME$ = "LinePrinter"
<:#231,9360> vFSIZE = 8.5*20
<:#231,9360> FontChange(vFNAME$, vPITCHFAM, 0, vFSIZE)
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>If vAPPEND = 0 Then
<:#231,9360> vSTYLE$ = GetStyleName$()
<:#231,9360> ModifySelect(vSTYLE$)
<:#231,9360> ModifySpacing(1 + 32, 240, 0, 0, 100, 4, 4)
<:#231,9360> ModifyAlignment(1, 0, 0, 0, 1, 0)
<:#231,9360> ModifyFont(vFNAME$, vFSIZE, 0, 1024)
<:#231,9360> ModifyReflow( )
<:#231,9360>Else
<:#231,9360>
<:#231,9360><:f200,BArial,0,0,255>'//* Make sure that the font in "Body Text" is 10 point "Courier New".<:f>
<:#231,9360>
<:#231,9360> ModifySelect("Body Text")
<:#231,9360> ModifyFont(vFNAME$, vFSIZE, 0, 1024)
<:#231,9360> ModifyReflow( )
<:#231,9360>
<:#231,9360> SetStyle("Body Text")
<:#231,9360> FontChange(vFNAME$, vPITCHFAM, 0, vFSIZE)
<:#231,9360> LeftAlign()
<:#231,9360> Indent(0, 0, 0, 0)
<:#231,9360> Spacing(-1)
<:#231,9360> NormalText()
<:#231,9360>EndIf
<:#231,9360>If GetViewPrefLevel() <<<;> 90 Then
<:#231,9360> vTEMP = GetViewPrefOpts()
<:#231,9360> ViewPreferences(vTEMP, 90)
<:#231,9360>EndIf
<:#231,9360>If GetViewLevel() <<<;> 202 Then
<:#231,9360> CustomView()
<:#231,9360>EndIf
<:#231,9360>vSTATUS = 1
<:#231,9360>Goto xSETDEFAULTFINISH
<:#231,9360>
@label@<:#220,9360>xSETDEFAULTABORT:
<:#231,9360>x = fError(Err, "Error setting default formatting.")
<:#231,9360>
@label@<:#220,9360>xSETDEFAULTFINISH:
<:#231,9360>StatusBarMsg("")
<:#231,9360>fSetDefaultFormat = vSTATUS
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
<:#231,9360>'----------
@Function@<:#293,9360>Function fLEXSEEFormat(vAPPEND, pPAGES)
<:#231,9360>vSTATUS = 0
<:#231,9360>OnError xLEXSEEFINISH
<:#231,9360>vMSG$ = "Reformat LEXSEE document to remove fixed line breaks?"
<:#231,9360>If pPages <;> 75 Then
<:#231,9360> vMSG$ = StrCat$(vMSG$, Chr$(10), Chr$(10), "(File must be saved before reformatting.)")
<:#231,9360>EndIf
<:#231,9360>If MultiDecide(vMSG$, 4 + 32, gcDBTITLE$) = 7 Then
<:#231,9360> Goto xLEXSEEFINISH
<:#231,9360>EndIf
<:#231,9360>
@label@<:#220,9360>xLEXSEESAVE:
<:#231,9360>If pPAGES <;> 75 Then
<:#231,9360>OnCancel xLEXSEESAVECANCEL
<:#231,9360> If GetOpenFileName$() = "" Then
<:#231,9360> SaveAs
<:#231,9360> Else
<:#231,9360> Save()
<:#231,9360> EndIF
@label@<:#220,9360>xLEXSEESAVECANCEL:
<:#231,9360> If GetOpenFileName$() = "" Then
<:#231,9360> StatusBarMsg("File must be saved to continue with reformatting.")
<:#231,9360> If MultiDecide(StrCat$("File/Save was not successfully completed. ", Chr$(10),
<:#231,9360> "File must be saved to continue with reformatting."), 5 + 16, gcDBTITLE$) = 4
<:#231,9360> Then
<:#231,9360> Goto xLEXSEESAVE
<:#231,9360> Else
<:#231,9360> Goto xLEXSEEFINISH
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360> OnError xLEXSEEABORT
<:#231,9360>EndIf
<:#231,9360>
<:#231,9360>StatusBarMsg("Reformatting, please wait...")
<:#231,9360>If CurChar$() = "" Then
<:#231,9360> Type("<[>Del]")
<:#231,9360>EndIf
<:#231,9360>Type("<[>CtrlHome]")
<:#231,9360>If vAPPEND <<<;> 0 Then
<:#231,9360> If MarkBookMark(gcAPPENDBKMK$, FindBookmark) = 1 Then
<:#231,9360> Else
<:#231,9360> If MultiDecide(StrCat$("Append bookmark missing.", Chr$(10), Chr$(10),
<:#231,9360> "Reformat entire current document?"), 4 + 48, gcDBTITLE$) = 7
<:#231,9360> Then
<:#231,9360> Goto xLEXSEEFINISH
<:#231,9360> EndIf
<:#231,9360> EndIf
<:#231,9360>EndIf
<:#231,9360>MarkBookMark("LEXSEEformat", DeleteBookmark)
<:#231,9360>MarkBookMark("LEXSEEformat", AddBookmark)
<:#231,9360>
<:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "</v>", "<\>")
<:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\><\><\>", "<\><\>")
<:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\><\>", "</k>")
<:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\> ", "</{> ")<-">
<:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\>", " ")
<:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "</k>", "</v>")
<:#231,9360>While Replace(0, 0, FindCurrentStream, "</{>", "") = 1
<:#231,9360> Type("<[>Del]<[>CtrlEnter]")
<:#231,9360>Wend
<:#231,9360>
<:#231,9360>MarkBookMark("LEXSEEformat", FindBookmark)
<:#231,9360>vFMT = 0
<:#231,9360>vCNT = GetStyleCount()
<:#231,9360>Dim aSTYLE$(vCNT)
<:#231,9360>GetStyleNames(&aSTYLE$)
<:#231,9360>For i = vCNT to 1 step -1
<:#231,9360> If aSTYLE$(i) = "LEXSEE" Then
<:#231,9360> vFMT = 1
<:#231,9360> i = 1
<:#231,9360> EndIf
<:#231,9360>Next
<:#231,9360>If vFMT = 0 Then
<:#231,9360> Type("<[>Down]")
<:#231,9360> CreateStyle("LEXSEE", "Body Text", 2)
<:#231,9360>
<:#231,9360><:f200,BArial,0,0,255>'//* Make sure that the color of the style is not BLUE, which it will get from the Headline!<:f>
<:#231,9360>
<:#231,9360> DEFSTR vFNAME$, vCOLOR, vFONTSIZE, vPITCHFAM
<:#231,9360> GetCurFontInfo(&vFNAME$, &vCOLOR, &vFONTSIZE, &vPITCHFAM)
<:#231,9360> ModifySelect("LEXSEE")
<:#231,9360> ModifyFont(vFNAME$,vFONTSIZE,0,8)
<:#231,9360> ModifyReflow()
<:#231,9360>
<:#231,9360> Type("<[>Up]")
<:#231,9360>EndIf
<:#231,9360>Type( "<[>CtrlShiftEnd]")
<:#231,9360>SetStyle("LEXSEE")
<:#231,9360>
<:#231,9360>ModifySelect("LEXSEE")
<:#231,9360>ModifySpacing(1 + 32, 240, 240, 0, 100, 1, 1)
<:#231,9360>ModifyReflow()
<:#231,9360>
<:#231,9360>MarkBookMark("LEXSEEformat", FindBookmark)
<:#231,9360>MarkBookMark("LEXSEEformat", DeleteBookmark)
<:#231,9360>vSTATUS = 1
<:#231,9360>Goto xLEXSEEFINISH
<:#231,9360>
@label@<:#220,9360>xLEXSEEABORT:
<:#231,9360>vTEMP = GetGlobalVar$("LEXgFAILURE")
<:#231,9360>x = fError(Err, "Error reformatting LEXSEE document.")
<:#231,9360>SetGlobalVar("LEXgFAILURE", vTEMP)
<:#231,9360>
@label@<:#220,9360>xLEXSEEFINISH:
<:#231,9360>StatusBarMsg("")
<:#231,9360>fLEXSEEFormat = vSTATUS
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
<:#231,9360>'----------
@Function@<:#293,9360>Function fError(pErr, pMsg$)
<:#231,9360>OnError xERRORFINISH
<:#231,9360>Beep()
<:#231,9360>vMSG$ = pMsg$
<:#231,9360>StatusBarMsg("Aborting...")
<:#231,9360>ActivateApp(dGetAppWindow(gcAPPWIN$))
<:#231,9360>
<:#231,9360>If GetGlobalVar$("LEXgFAILURE") = 0 Then
<:#231,9360> x=MultiDecide(vMSG$, 48, gcDBTITLE$)
<:#231,9360>EndIf
<:#231,9360>SetGlobalVar("LEXgFAILURE", -1)
<:#231,9360>StatusBarMsg("")
@label@<:#220,9360>xERRORFINISH:
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
@label@<:#220,9360>Function RemoveInstallMenu()
<:#231,9360> DeleteMenuItem(1, "Too&ls", "Install LEXIS &Access...")
@label@<:#220,9360>End Function
<:#231,9360>
@label@<:#220,9360>Function SetDocView()
@Close Text@<:#231,9360> ViewPreferences(2,90)
@Close Text@<:#231,9360> CustomView()
@label@<:#220,9360>End Function
<:#231,9360>
<:#231,9360>
>
[Embedded]
00035290
>
[macsum] 9
LEXISAmi 0 0 22 73
fGetDocSelection$ 3725 0 3 231
fSetUpDoc 3950 7 9 247
fNEWFILE 5737 5 13 345
fSetDefaultFormat 7820 1 9 452
fLEXSEEFormat 8717 2 13 512
fError 11176 2 3 622
RemoveInstallMenu 11452 0 1 638
SetDocView 11531 0 1 642
[macse]
14 LEXISAmi
0 16 "Initializing " "LEXIS-NEXIS Online Connection" "..."
13
0 789 [X]
20 00003329
5 0
8 1
0 266 "LEXgFAILURE"
0 271 "LEXgFAILURE" 1
13
5 0
18 0
11 00000287
0 16 "Insufficient memory initializing " "LEXIS-NEXIS Online Connection" "."
13
0 3 [X]
10 00003703
0 264 "LEXgFAILURE" 0
0 1050
13
5 0
18 3
11 00000561
0 279 1
13
0 17 [X]
13
8 2
6 2
7 "lexis.smm"
18 0
11 00000561
5 0
5 16
3 0
0 21 "Command cannot be run with this macro as the active document." [X] "LEXIS-NEXIS Online Connection"
13
8 3
10 00003703
0 284 "user.dll,GetActiveWindow,H"
13
8 4
0 39 10
13
8 5
0 284 "dlghook.dll,dhStartLexToolbar,H"
0 274 2
0 297 "LEXIS-GA.DLL" "LEXISInfo" "CHI"
13
8 1
6 1
5 0
18 0
11 00001007
0 16 "LEXIS Access Library file missing." "{5}" "{5}" "LEXIS-GA.DLL" " must be " "installed in the \WINDOWS\SYSTEM directory to run this macro."
13
5 0
5 16
3 0
0 21 [X] [X] "LEXIS-NEXIS Online Connection"
13
8 3
0 266 "LEXgFAILURE"
10 00003703
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 12
13
7 "2.70"
18 5
11 00001296
0 16 "Incorrect version of LEXIS Access Library (" "LEXIS-GA.DLL" "). " "{5}" "Version " "2.70" " or later is required."
13
5 0
5 16
3 0
0 21 [X] [X] "LEXIS-NEXIS Online Connection"
13
8 3
10 00003414
19 00003414
5 1
8 6
0 1310 "LEXISClient"
13
8 7
6 7
8 8
16 fGetDocSelection$
13
8 9
0 16 "LEXIS-NEXIS Online Connection" " for " "Lotus Ami Pro"
13
0 789 [X]
0 284 "lexis-ga.dll,LEXISDialog,IHCCCCIC" "{4}" "{9}" "{8}" "Lotus Ami Pro" "2.70" 0 ""
13
8 10
6 10
5 65500
18 3
11 00001627
6 10
5 65536
3 1
8 10
6 10
5 2
18 5
11 00001670
10 00003414
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 2
13
8 8
6 8
6 7
18 1
6 8
7 ""
18 1
1 1
11 00001802
0 1311 "LEXISClient" "{8}"
6 10
5 4
18 5
11 00001845
10 00003414
0 284 "lexis-ga.dll,LEXISGetAppType,H"
13
5 4
18 1
11 00001976
0 284 "lexis-ga.dll,LEXISDownloadToApp,CC" "{4}"
10 00003414
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 1
13
8 9
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 7
13
8 11
7 ""
8 12
5 0
8 13
5 0
8 14
5 0
8 15
5 3
8 16
5 0
8 17
6 16
5 2
18 3
11 00003029
0 39 91
13
8 18
0 789 "{11} {18}{9}]"
0 284 "lexis-ga.dll,LEXISData,IH" "{4}"
13
8 16
6 16
5 65500
18 3
11 00002333
6 16
5 65536
3 1
8 16
6 16
5 2
18 0
6 16
5 3
18 3
1 2
11 00002504
6 13
5 0
18 3
11 00002504
0 18 "{12}"
13
7 "LEXSEE"
18 0
11 00002504
16 fLEXSEEFormat "{17}" "{14}"
13
8 3
6 16
5 2
18 3
11 00003016
6 16
5 3
18 3
11 00002892
6 16
5 4
3 1
8 17
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 7
13
8 11
0 284 "lexis-ga.dll,dLobster,CCH" "{11}" 11
13
8 12
16 fSetUpDoc "{4}" "{17}" "{13}" "{12}" "{9}" "{8}" "{6}"
13
5 0
18 0
11 00002806
5 0
8 16
10 00002828
6 13
5 1
3 0
8 13
6 17
5 0
18 0
11 00002892
6 15
6 14
3 0
8 15
5 0
8 14
6 16
5 0
18 3
11 00003016
0 284 "lexis-ga.dll,dGetAppWindow,CC" "Ami Pro"
13
0 38 [X]
2 155 1
6 14
5 1
3 0
8 14
10 00002150
6 16
5 2
18 0
11 00003316
6 15
6 14
3 0
8 15
7 "Download completed."
8 19
0 789 "{19}"
0 16 "{19}{5}{5}LEXIS DOCUMENTS: {13}{5}" "TOTAL LEXIS PAGES: {15}"
13
8 20
0 16 "LEXIS-NEXIS Online Connection" "{5}" "------------------------------------" "{5}" "{20}"
13
0 3 [X]
10 00003414
16 fError 0 "Error encountered in LEXIS/NEXIS Ami Pro macro main routine."
13
8 3
0 789 ""
6 1
5 0
18 1
11 00003520
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 0
13
8 21
0 298 "{1}"
0 266 "LEXgFAILURE"
6 10
5 3
18 1
11 00003634
0 284 "lexis-ga.dll,dGetAppWindow,CC" "Ami Pro"
13
0 38 [X]
0 1050
13
5 0
18 3
11 00003703
2 466 1 "LEXISAppendStart" 4004
0 789 ""
6 0
15
9
14 fGetDocSelection$
20 00000203
7 ""
8 1
0 24
13
8 1
0 14 "{1}"
13
8 2
6 2
5 0
18 5
6 2
5 256
18 3
1 2
11 00000177
7 "(invalid selection)"
8 1
10 00000203
0 806 "{1}" 128
13
8 1
6 1
8 0
6 0
15
9
14 fSetUpDoc
5 0
8 8
20 00001686
0 789 "Setting up document for downloading data..."
6 1
5 0
18 0
11 00000398
0 1050
13
5 8
18 3
11 00000398
0 39 10
13
0 16 "Too many document windows open to create a new document." [X] "Append to current document?."
13
5 1
5 32
3 0
0 21 [X] [X] "LEXIS-NEXIS Online Connection"
13
5 1
18 0
11 00000385
5 1
8 1
10 00000398
10 00001755
6 1
5 0
18 0
11 00000775
0 1050
13
5 0
18 3
11 00000496
2 466 1 "LEXISAppendStart" 4004
16 fNewFile "{0}" "{3}" "{4}" "{5}" "{6}"
13
8 8
6 8
5 0
18 0
11 00000775
0 39 10
13
0 16 "Unable to create new document." [X] "Append to current document?"
13
0 21 [X] 1 "LEXIS-NEXIS Online Connection"
13
5 1
18 0
11 00000762
5 1
8 1
10 00000775
10 00001755
6 1
5 0
18 1
11 00001337
0 1050
13
5 0
18 0
11 00000902
0 3 "Sorry, no document is open for appending."
10 00001755
0 6 "[16419]"
0 6 "[36]"
0 282
13
7 ""
18 1
11 00000981
0 6 "[35][13]"
2 466 1 "LEXISAppendStart" 4004
2 466 1 "LEXISAppendStart" 4003
2 357 1 1
6 2
5 0
18 0
11 00001327
16 fSetDefaultFormat 1
13
8 8
6 8
5 0
18 0
11 00001290
0 789 "Cleaning up..."
2 466 1 "LEXISAppendStart" 4002
0 6 "[20515]"
2 466 1 "LEXISAppendStart" 4004
2 357 1 2
0 6 "[46]"
10 00001314
0 6 "[13]"
0 6 "[38]"
10 00001337
5 1
8 8
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{0}" 8
13
8 9
6 9
7 ""
18 1
11 00001673
0 804 &10 &11 &12 &13
2 251 1 "" 0 16711680 "{12}"
2 255 1
0 6 "{9}[16397]"
2 251 1 "" 0 "{11}" "{12}"
2 255 1
5 1
8 14
5 8
6 14
18 2
12 00001626
10 00001657
5 1
6 14
3 0
8 14
10 00001548
0 6 "----------"
10 00001591
0 6 "[13][13]"
10 00001755
16 fError 0 "Error preparing to download data."
13
8 15
5 0
8 8
0 789 ""
6 8
8 7
6 7
15
9
14 fNEWFILE
5 0
8 6
5 0
8 7
20 00001924
0 789 "Creating new file..."
0 1050
13
5 0
18 0
11 00000140
7 "none"
8 8
10 00000205
0 267
13
8 8
6 8
7 ""
18 0
11 00000205
7 "untitled"
8 8
6 1
7 ""
18 0
11 00000251
7 "LEXIS"
8 1
0 269
13
8 9
6 9
8 10
6 10
7 ""
18 0
11 00000454
0 284 "lexis-ga.dll,dGetAppFile,CC" "AMIPRO"
13
8 10
0 284 "lexis-ga.dll,dLastChar,ICC" "{10}" "\"
13
5 1
3 1
0 806 "{10}" [X]
13
8 10
0 284 "lexis-ga.dll,dLobster,CCH" "{10}" 1
13
8 10
0 284 "lexis-ga.dll,LEXISInfo,CHI" "{0}" 10
13
8 11
0 284 "lexis-ga.dll,dGetIniText,CCCC" "DDE MACROS" "AmiProTemplate" "{11}"
13
8 12
6 12
7 ""
18 0
11 00000726
7 "_LEXIS.STY"
8 12
6 9
8 10
10 00000937
0 808 1 "{12}" "\"
13
5 0
18 3
11 00000937
0 284 "lexis-ga.dll,dLastChar,ICC" "{12}" "\"
13
8 13
0 806 "{12}" "{13}"
13
8 10
6 13
5 1
3 0
0 14 "{12}"
13
6 13
3 1
0 15 "{12}" [X] [X]
13
8 12
0 280 "{10}{12}" 0
13
7 ""
18 0
11 00001120
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 14
6 14
8 12
6 9
8 10
0 280 "{10}{12}" 0
13
7 ""
18 0
11 00001120
7 ""
8 12
20 00001868
6 10
6 9
18 1
11 00001359
2 175 1 "{10}"
13
5 -2
18 0
11 00001359
5 0
5 48
3 0
0 21 "Error setting style path to directory of template ({10})." [X] "LEXIS-NEXIS Online Connection"
13
8 15
7 ""
8 12
6 9
8 10
6 12
7 ""
18 0
11 00001399
0 291 1
2 101 1 "{12}" 0 512
5 -1
8 7
20 00001924
6 10
6 9
18 1
11 00001490
2 175 1 "{9}"
7 "{1} SEARCH"
8 16
0 806 "{1}: {2}" 64
13
8 17
0 806 "{16}, {2}" 32
13
2 109 1 "{17}" [X] 0
0 1311 "LEXISClient" "{3}"
6 12
7 ""
18 0
6 12
6 14
18 0
1 2
11 00001738
16 fSetDefaultFormat 0
13
5 0
18 0
11 00001738
10 00001924
20 00001924
0 6 "[16420]"
0 282
13
7 ""
18 1
11 00001826
0 6 "[13]"
0 6 "[38]"
2 253 1
5 1
8 6
0 789 ""
10 00002061
6 12
7 ""
18 1
11 00001924
7 ""
8 12
10 00001120
16 fError 0 "Error creating new document."
13
8 15
6 7
5 0
18 1
11 00002061
6 8
0 267
13
18 1
11 00002061
0 34 1 0
2 147 1
6 6
8 5
6 5
15
9
14 fSetDefaultFormat
5 0
8 2
20 00000807
2 361 1 512
2 362 1 15840 12240 1 1
2 363 1 1440 1440 1080 1440 1 0 1 1440 11160 0
2 376 1
5 1
5 48
3 0
5 10
5 20
4 0
2 251 1 "Courier New" [X] 0 [X]
0 804 &3 &5 &6 &4
6 6
5 20
4 1
5 10
18 3
11 00000340
7 "LinePrinter"
8 3
5 8.5
5 20
4 0
8 6
2 251 1 "{3}" "{4}" 0 "{6}"
6 0
5 0
18 0
11 00000516
0 288
13
8 7
2 311 1 "{7}"
5 1
5 32
3 0
2 316 1 [X] 240 0 0 100 4 4
2 313 1 1 0 0 0 1 0
2 315 1 "{3}" "{6}" 0 1024
2 319 1
10 00000671
2 311 1 "Body Text"
2 315 1 "{3}" "{6}" 0 1024
2 319 1
2 323 1 "Body Text"
2 251 1 "{3}" "{4}" 0 "{6}"
2 259 1
2 265 1 0 0 0 0
2 252 1 -1
2 253 1
0 46
13
5 90
18 1
11 00000739
0 45
13
8 8
2 206 1 "{8}" 90
0 28
13
5 202
18 1
11 00000784
2 202 1
5 1
8 2
10 00000865
16 fError 0 "Error setting default formatting."
13
8 9
0 789 ""
6 2
8 1
6 1
15
9
14 fLEXSEEFormat
5 0
8 3
20 00002427
7 "Reformat LEXSEE document to remove fixed line breaks?"
8 4
6 1
5 75
18 3
11 00000234
0 39 10
13
0 39 10
13
0 16 "{4}" [X] [X] "(File must be saved before reformatting.)"
13
8 4
5 4
5 32
3 0
0 21 "{4}" [X] "LEXIS-NEXIS Online Connection"
13
5 7
18 0
11 00000339
10 00002427
6 1
5 75
18 3
11 00000810
19 00000448
0 267
13
7 ""
18 0
11 00000439
24 104
10 00000448
2 103 1
0 267
13
7 ""
18 0
11 00000797
0 789 "File must be saved to continue with reformatting."
0 39 10
13
0 16 "File/Save was not successfully completed. " [X] "File must be saved to continue with reformatting."
13
5 5
5 16
3 0
0 21 [X] [X] "LEXIS-NEXIS Online Connection"
13
5 4
18 0
11 00000784
10 00000339
10 00000797
10 00002427
20 00002307
0 789 "Reformatting, please wait..."
0 282
13
7 ""
18 0
11 00000896
0 6 "[46]"
0 6 "[16420]"
6 0
5 0
18 1
11 00001224
2 466 1 "LEXISAppendStart" 4002
13
5 1
18 0
11 00001014
10 00001224
0 39 10
13
0 39 10
13
0 16 "Append bookmark missing." [X] [X] "Reformat entire current document?"
13
5 4
5 48
3 0
0 21 [X] [X] "LEXIS-NEXIS Online Connection"
13
5 7
18 0
11 00001224
10 00002427
2 466 1 "LEXSEEformat" 4004
2 466 1 "LEXSEEformat" 4003
5 1024
5 16384
3 0
2 488 1 0 0 [X] "</v>" "<\>"
5 1024
5 16384
3 0
2 488 1 0 0 [X] "<\><\><\>" "<\><\>"
5 1024
5 16384
3 0
2 488 1 0 0 [X] "<\><\>" "</k>"
5 1024
5 16384
3 0
2 488 1 0 0 [X] "<\> " "</{> "
5 1024
5 16384
3 0
2 488 1 0 0 [X] "<\>" " "
5 1024
5 16384
3 0
2 488 1 0 0 [X] "</k>" "</v>"
2 488 1 0 0 16384 "</{>" ""
13
5 1
18 0
11 00001716
0 6 "[46][16397]"
10 00001627
2 466 1 "LEXSEEformat" 4002
5 0
8 5
0 1308
13
8 6
6 6
21 7 [X]
0 1309 &7
6 6
8 8
5 1
6 8
18 4
12 00001884
10 00001959
5 -1
6 8
3 0
8 8
10 00001808
6 8
22 7
7 "LEXSEE"
18 0
11 00001946
5 1
8 5
5 1
8 8
10 00001850
6 5
5 0
18 0
11 00002119
0 6 "[40]"
2 301 1 "LEXSEE" "Body Text" 2
0 804 &9 &10 &11 &12
2 311 1 "LEXSEE"
2 315 1 "{9}" "{11}" 0 8
2 319 1
0 6 "[38]"
0 6 "[20515]"
2 323 1 "LEXSEE"
2 311 1 "LEXSEE"
5 1
5 32
3 0
2 316 1 [X] 240 240 0 100 1 1
2 319 1
2 466 1 "LEXSEEformat" 4002
2 466 1 "LEXSEEformat" 4004
5 1
8 3
10 00002427
0 265 "LEXgFAILURE"
13
8 13
16 fError 0 "Error reformatting LEXSEE document."
13
8 14
0 264 "LEXgFAILURE" "{13}"
0 789 ""
6 3
8 2
6 2
15
9
14 fError
20 00000264
0 801
6 1
8 3
0 789 "Aborting..."
0 284 "lexis-ga.dll,dGetAppWindow,CC" "Ami Pro"
13
0 38 [X]
0 265 "LEXgFAILURE"
13
5 0
18 0
11 00000230
0 21 "{3}" 48 "LEXIS-NEXIS Online Connection"
13
8 4
0 264 "LEXgFAILURE" -1
0 789 ""
6 2
15
9
14 RemoveInstallMenu
0 520 1 "Too&ls" "Install LEXIS &Access..."
6 0
15
9
14 SetDocView
2 206 1 2 90
2 202 1
6 0
15
9
00035315